home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / XLisp 2.1e3 / lisp / fib.lsp < prev    next >
Lisp/Scheme  |  1993-10-15  |  192b  |  10 lines
  1. (defun fib (x)
  2.        (if (< x 2) x
  3.            (+ (fib (- x 1)) (fib (- x 2)))))
  4.  
  5. (defun fibi (n)
  6.     (do    ((i 1 (1+ i))
  7.          (fib-i-1 0 fib-i)
  8.          (fib-i   1 (+ fib-i fib-i-1)))
  9.         ((= i n) fib-i)))
  10.